home *** CD-ROM | disk | FTP | other *** search
/ HBO Media Relations - Win…/Spring 1995 Programming / HBO Media Relations Winter and Spring 1995 Programming Vol 1.1.iso / pc / files / hbo_prev.dir / 00001_Script_1 next >
Text File  |  1995-01-09  |  22KB  |  519 lines
  1. global gFairyTalesList, gCitizenXList, gFiddlersList, gTysonList
  2. global gHitlerList, gDMillerList, gTheatricalsList, gExecutivesList, gLogosList
  3. global theCast, gTempList, gSectionName, gQTSprite
  4.  
  5. on startmovie
  6.   repeat with i = (the number of cast "HB") to (the number of cast "bm")
  7.     set the textstyle of cast i to "plain"
  8.   end repeat
  9.   set gQTSprite = 4
  10.   set gFairyTalesList = []
  11.   set gCitizenXList = []
  12.   set gFiddlersList = []
  13.   set gTysonList = []
  14.   set gHitlerList = []
  15.   set gDMillerList = []
  16.   set gTheatricalsList = []
  17.   set gExecutivesList = []
  18.   set gLogosList = []
  19. end
  20.  
  21. on SwapButton         -- spritenum, script to execute, sound script
  22.   if Rollover(2) then Flashroller(2,"FairyTales","theMainButton")
  23.   if Rollover(3) then Flashroller(3,"CitizenX","theMainButton")
  24.   if Rollover(4) then Flashroller(4,"Fiddlers","theMainButton")
  25.   if Rollover(5) then Flashroller(5,"TYSON","theMainButton")
  26.   if Rollover(6) then Flashroller(6,"Hitler","theMainButton")
  27.   if Rollover(7) then Flashroller(7,"DMiller","theMainButton")
  28.   if Rollover(8) then Flashroller(8,"Theatricals","theMainButton")
  29.   if Rollover(9) then Flashroller(9,"Executives","theMainButton")
  30.   if Rollover(10) then Flashroller(10,"Logos", "theMainButton")
  31.   if Rollover(11) then Flashroller(11,"thequit", "Quitsound")
  32.   if Rollover(12) then Flashroller(12, "help1","HelpSound")
  33. end
  34.  
  35. on swapbutton2         -- spritenum, script to execute, sound script
  36.   if Rollover(11) then Flashroller(11,"theQuit","Quitsound")
  37.   if Rollover(12) then Flashroller(12,"RETURN1","theMainButton")
  38.   if Rollover(13) then Flashroller(13,"PICTURES", "thePictureSound")
  39.   if Rollover(14) then Flashroller(14,"VIDEO", "Videosound")
  40.   if Rollover(15) then Flashroller(15,"FairyTales","theMainButton")
  41.   if Rollover(16) then Flashroller(16,"CitizenX","theMainButton")
  42.   if Rollover(17) then Flashroller(17,"Fiddlers","theMainButton")
  43.   if Rollover(18) then Flashroller(18,"Tyson","theMainButton")
  44.   if Rollover(20) then Flashroller(20,"Hitler","theMainButton")
  45.   if Rollover(21) then Flashroller(21,"DMiller","theMainButton")
  46.   if Rollover(22) then Flashroller(22,"Theatricals","theMainButton")
  47.   if Rollover(23) then Flashroller(23,"Executives","theMainButton")
  48.   if Rollover(24) then Flashroller(24,"Logos","theMainButton")
  49. end
  50.  
  51. on thequit
  52.   --  if the framelabel = "QT" THEN    -- check in correct frame
  53.   --    set the movierate of sprite 2 to 0
  54.   --    set the movietime of sprite 2 to 0
  55.   --  end if
  56.   --  if soundbusy(1) = true then 
  57.   --    repeat while soundbusy(1)
  58.   --      nothing
  59.   --    end repeat
  60.   --  end if
  61.   Quit
  62. end  
  63.  
  64. on Return1
  65.   if soundbusy(1)  = true then
  66.     repeat while  soundbusy(1)
  67.       nothing
  68.     end repeat
  69.   end if
  70.   puppetsprite 47, false
  71.   puppetsprite 46, false
  72.   if the castType of cast (the castNum of sprite gQTSprite) = #digitalVideo THEN
  73.     set the movierate of sprite gQTSprite to 0
  74.     --    set the movietime of sprite gQTSprite to 0
  75.   end if
  76.   if soundbusy(1)  = true then 
  77.     repeat while  soundbusy(1)
  78.       nothing
  79.     end repeat
  80.   end if
  81.   puppetsound "Screen trans1.1"
  82.   puppettransition 51
  83.   go to frame "main"
  84. end
  85.  
  86. on pictures
  87.   if soundbusy(1)  = true then
  88.     repeat while  soundbusy(1)
  89.       nothing
  90.     end repeat
  91.   end if
  92.   if the castType of cast (the castNum of sprite gQTSprite) <> #digitalVideo THEN
  93.     nothing
  94.   else
  95.     set the movierate of sprite gQTSprite to 0
  96.     puppetsound "Screen trans1.1"
  97.     if soundbusy(1)  = true then 
  98.       repeat while  soundbusy(1)
  99.         nothing
  100.       end repeat
  101.     end if
  102.     puppetTransition 51, 8, 4, FALSE
  103.     go gSectionName
  104.   end if
  105. end
  106.  
  107. on video
  108.   if soundbusy(1)  = true then
  109.     repeat while  soundbusy(1)
  110.       nothing
  111.     end repeat
  112.   end if
  113.   if the castType of cast (the castNum of sprite gQTSprite) = #digitalVideo THEN
  114.     exit
  115.   else
  116.     if gSectionName = "Executives" then
  117.       exit
  118.     end if
  119.     if gSectionName = "DMiller" then
  120.       exit
  121.     end if
  122.     if gSectionName = "Logos" then
  123.       exit
  124.     end if
  125.     if gSectionName = "Theatricals" then
  126.       exit
  127.     end if
  128.     puppetsprite 47, false
  129.     puppetsprite 46, false
  130.     puppetsound "Screen trans1.1"
  131.     puppetTransition 51, 8, 4, FALSE
  132.     go to frame gSectionName & "QT"  
  133.   end if
  134. end
  135.  
  136. on sectionSet
  137.   if soundbusy(1)  = true then   -- wait till button pressed, do screen trans sound
  138.     repeat while  soundbusy(1)
  139.       nothing
  140.     end repeat
  141.   end if
  142.   puppetsprite 47, false
  143.   puppetsprite 46, false
  144.   puppetsound "Screen trans1.1"
  145.   puppetTransition 51, 8, 4, FALSE
  146. end
  147.  
  148. on FairyTales
  149.   sectionSet
  150.   go "FairyTales"
  151.   set the text of field "ChangeText" to field "Harry B. txt"   -- reinitialize text field
  152.   if gFairyTalesList = [] then
  153.     -- If the cast number references are changed in the cast window, uncomment this
  154.     -- and generate a new set of numbers for the cast list.
  155.     --    set gFairyTalesList =  ┬
  156. --            [[(the number of cast "H020.dmo"), (the number of cast "Harry B. txt")],┬
  157. --            [(the number of cast "H010.dmo"), (the number of cast "Jack+Beanstalk txt")],┬
  158. --            [(the number of cast "H030.dmo"), (the number of cast "Rumpelstiltskin txt")],┬
  159. --            [(the number of cast "H050.dmo"), (the number of cast "Denzel W. txt")],┬
  160. --            [(the number of cast "H070.dmo"), (the number of cast "Hansel+Gretel txt")],┬
  161. --            [(the number of cast "H090.dmo"), (the number of cast "Rosie Perez txt")],┬
  162. --            [(the number of cast "H100.dmo"), (the number of cast "Little Red Riding...txt")],┬
  163. --            [(the number of cast "H110.dmo"), (the number of cast "B.D. Wong txt")],┬
  164. --            [(the number of cast "H160.dmo"), (the number of cast "Margaret Cho txt")],┬
  165. --            [(the number of cast "H220.dmo"), (the number of cast "Buffy Saint-Marie txt")]]
  166.     set gFairyTalesList = [[101, 110], [100, 111], [102, 112], [103, 113], [104, 114], [105, 115], [106, 116], [107, 117], [108, 118], [109, 119]]
  167.   end if
  168.   set gTempList = gFairyTalesList
  169.   set gSectionName = "FairyTales"
  170. end
  171.  
  172. on CitizenX
  173.   sectionSet
  174.   go to frame "CitizenX"
  175.   set the text of field "ChangeText" to field "CitizenXTXT 1"   -- reinitialize text field
  176.   if gCitizenXList = [] then
  177.     -- If the cast number references are changed in the cast window, uncomment this
  178.     -- and generate a new set of numbers for the cast list.
  179.     --    set gCitizenXList = ┬
  180. --            [[(the number of cast "X 010"), (the number of cast "CitizenXTXT 1")],┬
  181. --            [(the number of cast "X 040"), (the number of cast "CitizenXTXT 2")],┬
  182. --            [(the number of cast "X 050"), (the number of cast "CitizenXTXT 3")],┬
  183. --            [(the number of cast "X 090"), (the number of cast "CitizenXTXT 4")],┬
  184. --            [(the number of cast "X 130"), (the number of cast "CitizenXTXT 5")],┬
  185. --            [(the number of cast "X 170"), (the number of cast "CitizenXTXT 6")],┬
  186. --            [(the number of cast "X 210"), (the number of cast "CitizenXTXT 7")],┬
  187. --            [(the number of cast "X 230"), (the number of cast "CitizenXTXT 8")],┬
  188. --            [(the number of cast "X 240"), (the number of cast "CitizenXTXT 9")],┬
  189. --            [(the number of cast "null_cast"), (the number of cast "null_cast")]]
  190.     set gCitizenXList = [[136, 145], [137, 146], [138, 147], [139, 148], [140, 149], [141, 150], [142, 151], [143, 152], [144, 153], [3, 3]]
  191.   end if
  192.   set gTempList = gCitizenXList
  193.   set gSectionName = "CitizenX"
  194. end
  195.  
  196. on Fiddlers
  197.   sectionSet
  198.   go to frame "Fiddlers"
  199.   set the text of field "ChangeText" to field "FiddlersTXT 1"   -- reinitialize text field
  200.   if gFiddlersList = [] then
  201.     -- If the cast number references are changed in the cast window, uncomment this
  202.     -- and generate a new set of numbers for the cast list.
  203.     --    set gFiddlersList = ┬
  204. --            [[(the number of cast "FG 020"), (the number of cast "FiddlersTXT 1")],┬
  205. --            [(the number of cast "FG 030"), (the number of cast "FiddlersTXT 2")],┬
  206. --            [(the number of cast "FG 040"), (the number of cast "FiddlersTXT 3")],┬
  207. --            [(the number of cast "FG 050"), (the number of cast "FiddlersTXT 4")],┬
  208. --            [(the number of cast "FG 090"), (the number of cast "FiddlersTXT 5")],┬
  209. --            [(the number of cast "FG 100"), (the number of cast "FiddlersTXT 6")],┬
  210. --            [(the number of cast "FG 110"), (the number of cast "FiddlersTXT 7")],┬
  211. --            [(the number of cast "FG 120"), (the number of cast "FiddlersTXT 8")],┬
  212. --            [(the number of cast "FG 140"), (the number of cast "FiddlersTXT 9")],┬
  213. --            [(the number of cast "null_cast"), (the number of cast "null_cast")]]
  214.     set gFiddlersList = [[169, 178], [170, 179], [171, 180], [172, 181], [173, 182], [174, 183], [175, 184], [176, 185], [177, 186], [3, 3]]
  215.   end if
  216.   set gTempList = gFiddlersList
  217.   set gSectionName = "Fiddlers"
  218. end
  219.  
  220. on Tyson
  221.   sectionSet
  222.   go to frame "Tyson"
  223.   set the text of field "ChangeText" to field "TysonTXT 1"   -- reinitialize text field
  224.   if gTysonList = [] then
  225.     -- If the cast number references are changed in the cast window, uncomment this
  226.     -- and generate a new set of numbers for the cast list.
  227.     --    set gTysonList = ┬
  228. --            [[(the number of cast "T 010"), (the number of cast "TysonTXT 1")],┬
  229. --            [(the number of cast "T 020"), (the number of cast "TysonTXT 2")],┬
  230. --            [(the number of cast "T 100"), (the number of cast "TysonTXT 3")],┬
  231. --            [(the number of cast "T 120"), (the number of cast "TysonTXT 4")],┬
  232. --            [(the number of cast "T 140"), (the number of cast "TysonTXT 5")],┬
  233. --            [(the number of cast "T 170"), (the number of cast "TysonTXT 6")],┬
  234. --            [(the number of cast "T 240"), (the number of cast "TysonTXT 7")],┬
  235. --            [(the number of cast "T 250"), (the number of cast "TysonTXT 8")],┬
  236. --            [(the number of cast "null_cast"), (the number of cast "null_cast")],┬
  237. --            [(the number of cast "null_cast"), (the number of cast "null_cast")]]
  238.     set gTysonList = [[204, 212], [205, 213], [206, 214], [207, 215], [208, 216], [209, 217], [210, 218], [211, 219], [3, 3], [3, 3]]
  239.   end if
  240.   set gTempList = gTysonList
  241.   set gSectionName = "Tyson"
  242. end
  243.  
  244. on Hitler
  245.   sectionSet
  246.   go to frame "Hitler"
  247.   set the text of field "ChangeText" to field "HitlerTXT 1"   -- reinitialize text field
  248.   if gHitlerList = [] then
  249.     -- If the cast number references are changed in the cast window, uncomment this
  250.     -- and generate a new set of numbers for the cast list.
  251.     --    set gHitlerList = ┬
  252. --            [[(the number of cast "HS 020"), (the number of cast "HitlerTXT 1")],┬
  253. --            [(the number of cast "HS 060"), (the number of cast "HitlerTXT 2")],┬
  254. --            [(the number of cast "HS 070"), (the number of cast "HitlerTXT 3")],┬
  255. --            [(the number of cast "HS 080"), (the number of cast "HitlerTXT 4")],┬
  256. --            [(the number of cast "HS 090"), (the number of cast "HitlerTXT 5")],┬
  257. --            [(the number of cast "HS 100"), (the number of cast "HitlerTXT 6")],┬
  258. --            [(the number of cast "HS 110"), (the number of cast "HitlerTXT 7")],┬
  259. --            [(the number of cast "HS 120"), (the number of cast "HitlerTXT 8")],┬
  260. --            [(the number of cast "HS 130"), (the number of cast "HitlerTXT 9")],┬
  261. --            [(the number of cast "HS 140"), (the number of cast "HitlerTXT 10")]]
  262.     set gHitlerList = [[235, 245], [236, 246], [237, 247], [238, 248], [239, 249], [240, 250], [241, 251], [242, 252], [243, 253], [244, 254]]
  263.   end if
  264.   set gTempList = gHitlerList 
  265.   set gSectionName = "Hitler"
  266. end
  267.  
  268. on DMiller
  269.   sectionSet
  270.   puppetTransition 51, 8, 4, FALSE
  271.   go to frame "DMiller"
  272.   set the text of field "ChangeText" to field "DMillerTXT 1"   -- reinitialize text field
  273.   if gDMillerList = [] then
  274.     -- If the cast number references are changed in the cast window, uncomment this
  275.     -- and generate a new set of numbers for the cast list.
  276.     --    set gDMillerList = ┬
  277. --            [[(the number of cast "DM 010"), (the number of cast "DMillerTXT 1")],┬
  278. --            [(the number of cast "DM 030"), (the number of cast "DMillerTXT 2")],┬
  279. --            [(the number of cast "LS 010"), (the number of cast "DMillerTXT 3")],┬
  280. --            [(the number of cast "LS 040"), (the number of cast "DMillerTXT 4")],┬
  281. --            [(the number of cast "LS 070"), (the number of cast "DMillerTXT 5")],┬
  282. --            [(the number of cast "DO 010"), (the number of cast "DMillerTXT 6")],┬
  283. --            [(the number of cast "DO 020"), (the number of cast "DMillerTXT 7")],┬
  284. --            [(the number of cast "DO 130"), (the number of cast "DMillerTXT 8")],┬
  285. --            [(the number of cast "null_cast"), (the number of cast "null_cast")],┬
  286. --            [(the number of cast "null_cast"), (the number of cast "null_cast")]]
  287.     set gDMillerList = [[269, 277], [270, 278], [271, 279], [272, 280], [273, 281], [274, 282], [275, 283], [276, 284], [3, 3], [3, 3]]
  288.   end if
  289.   set gTempList = gDMillerList 
  290.   set gSectionName = "DMiller"
  291. end
  292.  
  293. on Theatricals
  294.   sectionSet
  295.   go to frame "Theatricals"
  296.   set the text of field "ChangeText" to field "TheatricalsTXT 1"   -- reinitialize text field
  297.   if gTheatricalsList = [] then
  298.     -- If the cast number references are changed in the cast window, uncomment this
  299.     -- and generate a new set of numbers for the cast list.
  300.     --    set gTheatricalsList = ┬
  301. --            [[(the number of cast "TH 030"), (the number of cast "TheatricalsTXT 1")],┬
  302. --            [(the number of cast "TH 070"), (the number of cast "TheatricalsTXT 2")],┬
  303. --            [(the number of cast "TH 110"), (the number of cast "TheatricalsTXT 3")],┬
  304. --            [(the number of cast "TH 170"), (the number of cast "TheatricalsTXT 4")],┬
  305. --            [(the number of cast "TH 200"), (the number of cast "TheatricalsTXT 5")],┬
  306. --            [(the number of cast "TH 230"), (the number of cast "TheatricalsTXT 6")],┬
  307. --            [(the number of cast "TH 260"), (the number of cast "TheatricalsTXT 7")],┬
  308. --            [(the number of cast "TM 080"), (the number of cast "TheatricalsTXT 8")],┬
  309. --            [(the number of cast "TM 090"), (the number of cast "TheatricalsTXT 9")],┬
  310. --            [(the number of cast "TM 110"), (the number of cast "TheatricalsTXT 10")],┬
  311. --            [(the number of cast "TM 140"), (the number of cast "TheatricalsTXT 11")],┬
  312. --            [(the number of cast "TM 170"), (the number of cast "TheatricalsTXT 12")],┬
  313. --            [(the number of cast "TM 210"), (the number of cast "TheatricalsTXT 13")],┬
  314. --            [(the number of cast "TM 280"), (the number of cast "TheatricalsTXT 14")]]
  315.     set gTheatricalsList = [[297, 312], [298, 313], [299, 314], [301, 315], [302, 316], [303, 317], [304, 318], [305, 319], [306, 320], [307, 321], [308, 322], [309, 323], [310, 324], [311, 325]]
  316.   end if
  317.   set gTempList = gTheatricalsList 
  318.   set gSectionName = "Theatricals"
  319. end
  320.  
  321. on Executives
  322.   sectionSet
  323.   go to frame "Executives"
  324.   set the text of field "ChangeText" to field "ExecutivesTXT 1"   -- reinitialize text field
  325.   if gExecutivesList = [] then
  326.     -- If the cast number references are changed in the cast window, uncomment this
  327.     -- and generate a new set of numbers for the cast list.
  328.     --        set gExecutivesList = ┬
  329. --            [[(the number of cast "E010"), (the number of cast "ExecutivesTXT 1")],┬
  330. --            [(the number of cast "E020"), (the number of cast "ExecutivesTXT 2")],┬
  331. --            [(the number of cast "E 030"), (the number of cast "ExecutivesTXT 3")],┬
  332. --            [(the number of cast "E 040"), (the number of cast "ExecutivesTXT 4")],┬
  333. --            [(the number of cast "E 050"), (the number of cast "ExecutivesTXT 5")],┬
  334. --            [(the number of cast "E060"), (the number of cast "ExecutivesTXT 6")],┬
  335. --            [(the number of cast "E 070 "), (the number of cast "ExecutivesTXT 7")],┬
  336. --            [(the number of cast "E080"), (the number of cast "ExecutivesTXT 8")],┬
  337. --            [(the number of cast "E140"), (the number of cast "ExecutivesTXT 9")],┬
  338. --            [(the number of cast "Dummy pic"), (the number of cast "ExecutivesTXT 10")]]
  339.     set gExecutivesList = [[348, 358], [349, 359], [350, 360], [351, 361], [352, 362], [353, 363], [354, 364], [355, 365], [356, 366], [357, 367]]
  340.   end if
  341.   set gTempList = gExecutivesList 
  342.   set gSectionName = "Executives"
  343. end
  344.  
  345. on Logos
  346.   sectionSet
  347.   go to frame "Logos"
  348.   set the text of field "ChangeText" to field "LogosTXT 1"   -- reinitialize text field
  349.   if gLogosList = [] then
  350.     -- If the cast number references are changed in the cast window, uncomment this
  351.     -- and generate a new set of numbers for the cast list.
  352.     --            set gLogosList = ┬
  353. --            [[(the number of cast "LG 010"), (the number of cast "LogosTXT 1")],┬
  354. --            [(the number of cast "LG 060"), (the number of cast "LogosTXT 2")],┬
  355. --            [(the number of cast "LG 030"), (the number of cast "LogosTXT 3")],┬
  356. --            [(the number of cast "LG 040"), (the number of cast "LogosTXT 4")],┬
  357. --            [(the number of cast "LG 050"), (the number of cast "LogosTXT 5")],┬
  358. --            [(the number of cast "LG 020"), (the number of cast "LogosTXT 6")],┬
  359. --            [(the number of cast "null_cast"), (the number of cast "null_cast")],┬
  360. --            [(the number of cast "null_cast"), (the number of cast "null_cast")],┬
  361. --            [(the number of cast "null_cast"), (the number of cast "null_cast")],┬
  362. --            [(the number of cast "null_cast"), (the number of cast "null_cast")]]
  363.     set gLogosList = [[381, 387], [386, 388], [383, 389], [384, 390], [385, 391], [382, 392], [3, 3], [3, 3], [3, 3], [3, 3]]
  364.   end if
  365.   set gTempList = gLogosList 
  366.   set gSectionName = "Logos"
  367. end
  368.  
  369. on Help1
  370.   if soundbusy(1)  = true then
  371.     repeat while  soundbusy(1)
  372.       nothing
  373.     end repeat
  374.   end if
  375.   puppetsound "Screen trans1.1"
  376.   puppetTransition 51, 8, 4, FALSE
  377.   go "help"
  378. end
  379.  
  380. on textSetter whichsection
  381.   -- reinitialize text field
  382.   --  if whichsection = #FairyTales then set the text of field "ChangeText" to field "Harry B. txt"   end
  383.   
  384.   --sounds
  385.   
  386. on quitsound
  387.   puppetsound "quit"
  388. end
  389.  
  390. on theMainButton
  391.   puppetsound "video2"
  392. end
  393.  
  394. on HelpSound
  395.   puppetsound "help"
  396. end
  397.  
  398. on Videosound
  399.   puppetsound "Main buttons"
  400. end
  401.  
  402. on thePictureSound
  403.   puppetsound "pictures2"
  404. end
  405.  
  406. on flashroller whichchannel, scriptoexecute, clicksound
  407.   Global flag , theLOCV
  408.   set mycast = the mousecast        
  409.   set flag = 0
  410.   set the castnum of sprite whichchannel = mycast + 1   
  411.   updatestage
  412.   repeat while rollover(whichchannel)      --repeat loop while rollover
  413.     if the mousedown then
  414.       set the castnum of sprite whichchannel = mycast + 2
  415.       updatestage
  416.       repeat while the mousedown
  417.         if not rollover(whichchannel) then exit repeat   -- if off, exit
  418.       end repeat
  419.       if rollover(whichchannel) then set flag = 1
  420.       do clicksound          -- do first executable
  421.       exit repeat
  422.     end if
  423.   end repeat
  424.   set the castnum of sprite whichchannel = mycast
  425.   updatestage
  426.   if flag then do scriptoexecute  -- do second executable
  427. end 
  428.  
  429.  
  430. on hPicturecheck  
  431.   global theCast, prevCast-- rollover mouseline
  432.   repeat with x = 29 to 38
  433.     set shortList = getAt(gTempList, (x-28))
  434.     if theCast = x then hChangepict(getAt(shortlist, 1), getAt(shortList, 2))
  435.   end repeat
  436.   put theCast into prevCast
  437. end
  438.  
  439. on hPicturecheckT
  440.   global theCast, prevCast-- rollover mouseline
  441.   repeat with x = 29 to 42
  442.     set shortList = getAt(gTempList, (x-28))
  443.     if theCast = x then hChangepict(getAt(shortlist, 1), getAt(shortList, 2))
  444.   end repeat
  445.   put theCast into prevCast
  446. end
  447.  
  448. on hChangepict theCastnum, theText
  449.   global theCast, theLOCV
  450.   set the castnum of sprite 47 to theCastnum
  451.   set the text of field "ChangeText" to the text of field theText --change text in field
  452.   set the locv of sprite 46 to the locv of sprite theCast
  453.   put the locv of sprite theCast into theLOCV
  454.   updatestage
  455.   --puppetsprite 47, false
  456. end
  457.  
  458. on hBoldwords
  459.   repeat with i = 29 to 38     
  460.     if rollover(i) then Flashroller2(i,"hPicturecheck")
  461.   end repeat
  462.   put theCast into prevCast
  463.   
  464. end
  465.  
  466. on hBoldwordsT
  467.   -- the sprite channels for titles
  468.   repeat with i = 29 to 42     
  469.     if rollover(i) then Flashroller2(i,"hPicturecheckT")
  470.   end repeat
  471.   put theCast into prevCast
  472.   
  473. end
  474.  
  475. on flashroller2 whichchannel, scriptoexecute       --handler for the text box in pict frame
  476.   Global flag2,theCast, prevCast
  477.   set mycast = the mousecast
  478.   set flag2 = 0
  479.   set the textstyle of cast mycast to "bold"
  480.   updatestage
  481.   repeat while rollover(whichchannel)
  482.     if the mousedown then
  483.       set the textstyle of cast mycast to "bold,italic"
  484.       updatestage
  485.       repeat while the mousedown
  486.         if not rollover(whichchannel) then exit repeat
  487.       end repeat
  488.       if rollover(whichchannel) then set flag2 = 1
  489.       exit repeat
  490.     end if
  491.   end repeat
  492.   set the textstyle of cast mycast to "plain"
  493.   put whichchannel into theCast
  494.   updatestage
  495.   if flag2 then do scriptoexecute 
  496. end 
  497.  
  498. on checkitout maxScoreFrame, whichCast
  499.   repeat with x = 1 to maxScoreFrame
  500.     go to frame x
  501.     repeat with y = 1 to 48
  502.       if the castnum of sprite y = whichCast then put "Cast" &&  string(whichCast) && "found in sprite"&& string(y)&&"at frame"&& string(x)     
  503.     end repeat
  504.   end repeat
  505. end
  506.  
  507. on bitdepther howmany
  508.   repeat with x = 1 to howmany
  509.     if the castType of cast x = #bitmap then
  510.       if the depth of cast x > 8 then put "Castmember"&& string(x)&& "has a color depth of"&& the depth of cast x 
  511.     end if
  512.   end repeat
  513. end
  514.  
  515. on depuppetize
  516.   repeat with x = 1 to 48
  517.     puppetsprite x, 0
  518.   end repeat
  519. end